home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 2 / CD Loisirs 02 / CD Loisirs CD 002.mdf / pc / nympheas / sources / s424_031vame.k < prev    next >
Encoding:
Text File  |  1994-01-01  |  2.2 KB  |  160 lines
  1. object S424_031VAME is MEDIADISTRIBUTOR
  2. has
  3.     
  4.     Finished()
  5.         do
  6.             --
  7.         end;
  8.     
  9. with
  10.     Duration is -1;
  11.     X is 0; Y is 0; Width is 640; Height is 480;
  12.     Items is [
  13.         S424A1_BOUTON_MUSIQUE,
  14.         S424A2_BOUTON_TEXTE,
  15.         S424A3_BOUTON_OEUVRE,
  16.         S424A4_BOUTON_STOP,
  17.         S424A7_ALBUM_SUITE,
  18.         S424A8_S30A_WAV,
  19.         S424A9_031_PIC
  20.     ];
  21. end;
  22.  
  23. object S424A1_BOUTON_MUSIQUE is MEDIADELEGATOR
  24. has
  25.     
  26.     OffScreen()
  27.         do
  28.             self.Enable(true);
  29.         end;
  30.     
  31.     MouseUp(theX, theY)
  32.         do
  33.             APPLICATION.GoTo(S498_ECRAN_FIN);
  34.         end;
  35.     
  36. with
  37.     Duration is -1;
  38.     X is 245; Y is 205; Width is 47; Height is 47;
  39. end;
  40.  
  41. object S424A2_BOUTON_TEXTE is MEDIADELEGATOR
  42. has
  43.     
  44.     OffScreen()
  45.         do
  46.             self.Enable(true);
  47.             self.Show(true);
  48.         end;
  49.     
  50.     MouseUp(theX, theY)
  51.         do
  52.             APPLICATION.GoTo(S498_ECRAN_FIN);
  53.         end;
  54.     
  55. with
  56.     Duration is -1;
  57.     X is 244; Y is 264; Width is 49; Height is 48;
  58. end;
  59.  
  60. object S424A3_BOUTON_OEUVRE is MEDIADELEGATOR
  61. has
  62.     
  63.     OffScreen()
  64.         do
  65.             self.Enable(true);
  66.             self.Show(true);
  67.         end;
  68.     
  69.     MouseUp(theX, theY)
  70.         do
  71.             APPLICATION.GoTo(S498_ECRAN_FIN);
  72.         end;
  73.     
  74. with
  75.     Duration is -1;
  76.     X is 244; Y is 323; Width is 47; Height is 47;
  77. end;
  78.  
  79. object S424A4_BOUTON_STOP is MEDIADELEGATOR
  80. has
  81.     
  82.     OffScreen()
  83.         do
  84.             self.Enable(true);
  85.             self.Show(true);
  86.         end;
  87.     
  88.     MouseUp(theX, theY)
  89.         do
  90.             APPLICATION.GoBack(MEDIADISTRIBUTOR0);
  91.         end;
  92.     
  93. with
  94.     Duration is -1;
  95.     X is 537; Y is 433; Width is 90; Height is 36;
  96. end;
  97.  
  98. object S424A7_ALBUM_SUITE is MEDIADELEGATOR
  99. has
  100.     
  101.     OffScreen()
  102.         do
  103.             self.Enable(true);
  104.             self.Show(true);
  105.         end;
  106.     
  107.     MouseUp(theX, theY)
  108.         do
  109.             APPLICATION.GoTo(S6_006TABL);
  110.         end;
  111.     
  112. with
  113.     Duration is -1;
  114.     X is 536; Y is 389; Width is 90; Height is 36;
  115. end;
  116.  
  117. object S424A8_S30A_WAV is MEDIADELEGATOR
  118. has
  119.     
  120.     OffScreen()
  121.         do
  122.             self.Enable(true);
  123.             self.Show(true);
  124.             self.Run(false);
  125.         end;
  126.     
  127. with
  128.     Target is C313_S30A_WAV;
  129.     Duration is 0;
  130.     X is 49; Y is 220; Width is 32; Height is 24;
  131. end;
  132.  
  133. object S424A9_031_PIC is MEDIADELEGATOR
  134. has
  135.     
  136.     OffScreen()
  137.         do
  138.             self.GoToBeginning();
  139.             self.Run(true);
  140.             TRANSITION.Set(WipeTop, 300);
  141.             self.Show(true);
  142.         end;
  143.     
  144.     OnScreen()
  145.         do
  146.             S424A8_S30A_WAV.Run(true);
  147.         end;
  148.     
  149.     Finished()
  150.         do
  151.             APPLICATION.GoTo(S498_ECRAN_FIN);
  152.         end;
  153.     
  154. with
  155.     Target is C302_031_PIC;
  156.     Duration is 1200;
  157.     X is 0; Y is 0; Width is 640; Height is 480;
  158. end;
  159.  
  160.